home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
PWAPCP02.ZIP
/
PWRBALL2
/
PWRBALL2.PPD
< prev
next >
Wrap
Text File
|
1995-11-15
|
7KB
|
279 lines
;------------------------------------------------------------------------------
;PCBoard Programming Language Decompiler 3.00 (C)1994-95 Chicken / Tools4Fools
;------------------------------------------------------------------------------
;
;PCBoard Programming Language Executable 3.10 detected.
;
;Source Code:
;------------------------------------------------------------------------------
BYTE VAR001
BYTE VAR002
BYTE VAR003
BYTE VAR004
BYTE VAR005
BYTE VAR006
BYTE VAR007
STRING VAR008
BYTE VAR009
BYTE VAR010
WORD VAR011
STRING VAR012
STRING VAR013
INTEGER VAR014
INTEGER VAR015
INTEGER VAR016
;------------------------------------------------------------------------------
FOPEN 2,PPEPATH()+PPENAME()+".CFG",O_RD,S_DN
FGET 2,VAR012
FGET 2,VAR013
LET VAR001=1+RANDOM(44)
:LABEL000
LET VAR002=1+RANDOM(44)
IF (!(VAR001=VAR002)) GOTO LABEL001
GOSUB LABEL000
:LABEL001
LET VAR003=1+RANDOM(44)
IF (!(VAR001=VAR003)) GOTO LABEL002
GOSUB LABEL001
GOTO LABEL003
:LABEL002
IF (!(VAR002=VAR003)) GOTO LABEL003
GOSUB LABEL001
:LABEL003
LET VAR004=1+RANDOM(44)
IF (!(VAR001=VAR004)) GOTO LABEL004
GOSUB LABEL003
GOTO LABEL006
:LABEL004
IF (!(VAR002=VAR004)) GOTO LABEL005
GOSUB LABEL003
GOTO LABEL006
:LABEL005
IF (!(VAR003=VAR004)) GOTO LABEL006
GOSUB LABEL003
:LABEL006
LET VAR005=1+RANDOM(44)
IF (!(VAR001=VAR005)) GOTO LABEL007
GOSUB LABEL006
GOTO LABEL010
:LABEL007
IF (!(VAR002=VAR005)) GOTO LABEL008
GOSUB LABEL006
GOTO LABEL010
:LABEL008
IF (!(VAR003=VAR005)) GOTO LABEL009
GOSUB LABEL006
GOTO LABEL010
:LABEL009
IF (!(VAR004=VAR005)) GOTO LABEL010
GOSUB LABEL006
:LABEL010
LET VAR006=1+RANDOM(44)
FGET 2,VAR016
FCLOSE 2
LET VAR011=YEAR(DATE())
LET VAR009=MONTH(DATE())
LET VAR010=DAY(DATE())
LET VAR007=DOW(DATE())
IF (!(VAR007=3)) GOTO LABEL011
GOTO LABEL013
:LABEL011
IF (!(VAR007=6)) GOTO LABEL012
GOTO LABEL013
:LABEL012
GOTO LABEL014
:LABEL013
IF (TIME()>70200) GOTO LABEL032
:LABEL014
IF (!(VAR007<4)) GOTO LABEL015
LET VAR008=" @X07WEDNESDAY "
GOTO LABEL016
:LABEL015
LET VAR008=" SATURDAY "
:LABEL016
IF (!(VAR007=3)) GOTO LABEL017
GOTO LABEL019
:LABEL017
IF (!(VAR007=6)) GOTO LABEL018
GOTO LABEL019
:LABEL018
LET VAR007=VAR007+1
LET VAR010=VAR010+1
GOTO LABEL016
:LABEL019
IF (!(VAR011=1996)) GOTO LABEL020
IF (!(VAR009=2)) GOTO LABEL021
IF (VAR010=29) GOTO LABEL028
IF (!(VAR010>29)) GOTO LABEL020
LET VAR009=VAR009+1
LET VAR010=VAR010-29
GOTO LABEL028
:LABEL020
IF (!(VAR009=2)) GOTO LABEL021
IF (!(VAR010>28)) GOTO LABEL028
LET VAR009=VAR009+1
LET VAR010=VAR010-28
GOTO LABEL028
:LABEL021
IF (!(VAR010>=31)) GOTO LABEL028
IF (!(VAR009=4)) GOTO LABEL022
GOTO LABEL026
:LABEL022
IF (!(VAR009=6)) GOTO LABEL023
GOTO LABEL026
:LABEL023
IF (!(VAR009=9)) GOTO LABEL024
GOTO LABEL026
:LABEL024
IF (!(VAR009=11)) GOTO LABEL025
GOTO LABEL026
:LABEL025
GOTO LABEL027
:LABEL026
LET VAR009=VAR009+1
IF (VAR009=13) LET VAR011=VAR011+1
IF (VAR009=13) LET VAR009=1
LET VAR010=VAR010-30
GOTO LABEL028
:LABEL027
IF (VAR010=31) GOTO LABEL028
LET VAR009=VAR009+1
IF (VAR009=13) LET VAR011=VAR011+1
IF (VAR009=13) LET VAR009=1
LET VAR010=VAR010-31
:LABEL028
LET VAR014=CRC32(0,VAR012)
LET VAR015=CRC32(0,VAR013)
LET VAR011=RIGHT(VAR011,2)
CLS
PRINTLN ""
PRINTLN ""
PRINTLN "@X0F @X0AThanks For Calling @X0E@FIRST@ @X0AHope You Get Lucky!!"
PRINTLN ""
PRINTLN "@X08 POWERBALL PICK FROM LOWER LEVEL SOFTWARE "
PRINTLN "@X0F @X1F┌──────────────────────────────────────────────────────┐"
PRINTLN "@X0F @X1F│ │"
PRINTLN "@X0F @X1F│ @X7F @X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐@X7B┌@X70───┐▐@X4E┌@X40───┐@X4E┌@X40───┐@X4E┌@X40───┐@X4E┌@X40───┐ @X10▄ @X1F│"
PRINTLN "@X0F @X1F│ @X7F @X1B│ @X1FP @X10│@X1B│ @X1FO @X10│@X1B│ @X1FW @X10│@X1B│ @X1FE @X10│@X1B│ @X1FR @X10│@X70▐@X4E│ @X4FB @X40│@X4E│ @X4FA @X40│@X4E│ @X4FL @X40│@X4E│ @X4FL @X40│ @X10█ @X1F│"
PRINTLN "@X0F @X1F│ @X7F @X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘@X7B└───@X70┘▐@X4E└───@X40┘@X4E└───@X40┘@X4E└───@X40┘@X4E└───@X40┘ @X10█ @X1F│"
PRINTLN "@X0F @X1F│ @X10▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ @X1F│"
PRINTLN "@X0F @X1F└──────────────────────────────────────────────────────┘"
IF (!(VAR016=(RIGHT(VAR014,3)+RIGHT(VAR015,4)))) GOTO LABEL029
PRINTLN "@X0D REGISTERED TO: @BOARDNAME@ "
GOTO LABEL030
:LABEL029
;PRINTLN "@X8D ASK YOUR SYSOP TO REGISTER POWERBALL PICK @X03(ONLY 5 BUCKS MAN!)@X07"
:LABEL030
PRINTLN "@X0F HERE ARE YOUR LUCKY NUMBERS FOR THE POWERBALL DRAWING"
PRINTLN "@X0B@POS:24@ON@X8F>>@X0A@POS:31@",VAR008,"@X09@POS:44@",VAR009,"@X08/@X09",VAR010,"@X08/@X09",VAR011
PRINTLN "@X0E@POS:18@",+VAR001," ",+VAR002," ",+VAR003," ",+VAR004," ",+VAR005,"@X07 AND YOUR POWERBALL IS@X0C ",+VAR006
PRINTLN ""
PRINTLN ""
PRINTLN ""
IF (VAR016=(RIGHT(VAR014,3)+RIGHT(VAR015,4))) GOTO LABEL031
WAIT
END
:LABEL031
FAPPEND 1,PPEPATH()+STRING(VAR009)+"-"+STRING(VAR010)+"-"+STRING(VAR011),O_RW,S_DN
FPUTLN 1,U_NAME()
FPUTLN 1,+VAR001," ",+VAR002," ",+VAR003," ",+VAR004," ",+VAR005," ",+VAR006
FCLOSE 1
WAIT
END
:LABEL032
IF (VAR007=3) GOTO LABEL033
IF (VAR007=6) GOTO LABEL034
:LABEL033
LET VAR008=" SATURDAY"
LET VAR010=VAR010+3
GOTO LABEL019
:LABEL034
LET VAR008=" WEDNESDAY"
LET VAR010=VAR010+4
GOTO LABEL019
;------------------------------------------------------------------------------
;Statements used:
;
; 2 END
; 1 CLS
; 2 WAIT
; 56 GOTO
; 33 LET
; 20 PRINTLN
; 36 IF
; 1 FOPEN
; 1 FAPPEND
; 2 FCLOSE
; 3 FGET
; 2 FPUTLN
; 10 GOSUB
;
;Functions used:
;
; 12 +
; 25 +
; 4 -
; 31 =
; 1 <
; 3 >
; 1 >=
; 26 !
; 5 RIGHT
; 6 RANDOM
; 4 DATE
; 1 TIME
; 1 U_NAME
; 1 YEAR
; 1 MONTH
; 1 DAY
; 1 DOW
; 3 STRING
; 2 PPEPATH
; 1 PPENAME
; 2 CRC32
;
;------------------------------------------------------------------------------
;Thank you for using PPLD T4F - We Create Your Needs Of Tommorow !
;------------------------------------------------------------------------------